Top 10k strings from Ordenador Educativo - Issue 01 (1985)(Monser)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
10 condition=2
10 ;"PREGUNTA ";I
6 condition=1
4 ;"ABC ES UN TRIANGULO RECTANGULO";
3 s$(condition):
3 logoed
3 line=line+1
3 ;" Esta bien ? (pulsa S o N)"
3 ::::::::::::::::::::::::::::22:::::::::::::::::::::::::::::::22:::::::::::::::::::::::::::::::22:::::::::::::::::::::::::::::::2:::::::::::::::::::::::::::::::::::::::::::::::::99999::::::::::::::888888:::::9999999999:::::::::::::::::::9999999999999999:::::::::::::::999999999999999999::::::::::::::999999999999999999::::::::::::::999999:9:999999999:::::::::::::::::::888:::888888:::::::::::::::::::88888::8888888:::::999999999::8888:::::::8888::::::::::::::::888:::::::::88888:::=:::::::::::8:::::::::::::::888:,=::::::::::8:::::::::::::::888:&,=:::::::::88::::::::8:::==88882&,=:::::::;;;;?>:88888::===9888:2&,=::::::::::888::::::>>==<:::::2&,=:::::::::888888:::>>::<::::::2&,=:::99999999:99999999:::::8888888888888888888888888888888888888888888888888888888888888888
3 (line-9000
2 l(condition)=z
2 l(condition)=4
2 b$(t(condition));
2 b$(t(condition))+"es igual a "+
2 b$(t(condition))+
2 a$,b$,c$,d$,e$:
2 ;"RPQ=";D;"
2 ;"Pulsa ENTER para continuar"
2 ;"Pulsa ENTER para confirmar o 1 a 3 para escoger de nuevo"
2 ;"Pulsa 1 2 3 o 4"
2 ;"Pulsa 1 2 3 4 5 o 6"
2 ;"PQR ES UN TRIANGULO DE ANGULO";
2 ;"OPRIME UNA TECLA PARA CONTINUAR"
2 ;"LA RESPUESTA ES ";ANS;
2 ;"EN GRADOS."
2 ;"DE ANGULO BAC=90
2 ;"Cual de estas condiciones quie- res usar :-"
2 ;"CON ANGULO BAC=90
2 ;"Buscar por";
2 .SI EL LADO PQ=";A;" Y EL";
2 . HALLA AB ";
2 )+("Es igual a "
2 (E)/B)*180
2 (A*A+B*B-2
2 "elements"
1 z$=z$+" y "+
1 z$=z$+" "+
1 z$="hallado: "+a$+
1 z$="MENU PRINCIPAL":
1 z$="Elemento: "+a$+
1 t(condition)>2
1 t(condition)=z:
1 t(condition)=5
1 t(condition)=4
1 subroutines
1 search numeric
1 s$(l2-l1+1
1 s$(condition)+
1 pt=pt-(j$(
1 pt=pt+(z$=".")
1 enter=4900
1 elements
1 d$(l(condition))+
1 d$(l(condition))
1 condition:
1 choice made
1 c$(l(condition))+
1 c$(l(condition))
1 b$,c$,d$,e$,f$
1 and)+("o "
1 Z$="TRES":
1 Z$="SIETE":
1 Z$="SEIS":
1 Z$="OCHO":
1 Z$="NUEVE":
1 Z$="ELEMENTOS":
1 Z$="CUATRO":
1 Z$="CINCO":
1 Z$="CERO":
1 Z$="AYUDA":
1 TRIGONOMET\
1 TRIGONOMET
1 SEARCH STRING
1 Program by Pete Cooke
1 ORDENADOR EDUCATIVO N.1
1 NUMEROS \
1 NUMEROS
1 M-11211-1985
1 ELEMENTOS }K
1 ELEMENTOS Z
1 COND=5 (GROUP)
1 CARAC.GIG.
1 =(a$t)=(a$
1 =("Nt)=("Nombre "
1 =("Ml)=("Menor que "
1 =("El)=("Empieza con "
1 ;h$;" no hallado":
1 ;"sobre un elemento"
1 ;"peso atomico,grupo o forma";
1 ;"de un elemento"
1 ;"chequeo ";a$
1 ;"XYZ=";D;"
1 ;"XYZ ES UN TRIANGULO DE ANGULO";
1 ;"TU PUNTUACION ES DE ";SC;" SOBRE 10";
1 ;"Quieres una lista de :=-"
1 ;"Quieres que la computadora muestre el elemento?"
1 ;"Quieres buscarlo por su :=-"
1 ;"Que grupo deseas hallar ? :-"
1 ;"Que forma deseas buscar :-"
1 ;"QUERIDO ";
1 ;"Pulsa ENTER para confirmar o 1 o 2 para escoger de nuevo"
1 ;"Pulsa ENTER para confirmar o 1 a 6 para escoger de nuevo"
1 ;"Pulsa ENTER para confirmar o 1 a 4 para escoger de nuevo"
1 ;"Pulsa :=-"
1 ;"Pulsa 1 o 2"
1 ;"Pulsa 1 2 o 3"
1 ;"Pulsa 0,1,2,3,4,5,6,7,8,A o L"
1 ;"Por favor no incluyas unidades en las respuestas."
1 ;"POR FAVOR TECLEA TU NOMBRE"
1 ;"Oprime 1 2 o 3"
1 ;"OPRIME ENTER PARA CONTINUAR.";
1 ;"MATEMATICAS"
1 ;"La option 3 te permite buscar"'"un elemento o elementos usando"'"datos sobre ellos."
1 ;"La opcion 2 te muestra una"'"lista de todos los elementos."'"Puedes listar solo los nombres"'"o los nombres y otra informacion"'"como por ejemplo sus nombres y"'"simbolos"
1 ;"La mejor manera de usar el"'"programa es experimentar y acos-"'"tumbrarse a su funcionamiento."
1 ;"LUEGO OPRIME ENTER."
1 ;"LONGITUD DE AB SI BC=";A;" Y EL";
1 ;"LO SIENTO ESTAS EQUIVOCADO";
1 ;"LADO RQ=";B;", HALLA EL ANGULO PRQ";
1 ;"LADO RQ=";B;", HALLA EL ANGULO PQR";
1 ;"HOLA ";
1 ;"HALLA EL ANGULO BAC."
1 ;"Grupo ";z$
1 ;"GULO ABC CUANDO AC=";A;" Y AB=";B;"."
1 ;"Este programa se llama 'DATABASE'."''"Contiene informacion sobre los "'"ELEMENTOS quimicos."
1 ;"El programa almacena el"'"nombre,numero atomico,simbolo,"'"peso atomico,grupo y estado de"'"cada elemento."
1 ;"ESTUDIANTES DE CIENCIAS"
1 ;"Deseas usar alguna otra condicion ? (pulsa S o N)"
1 ;"DO EL ANGULO ABC=";D;"
1 ;"DESDE UN PUNTO P AL ESTE DE UN MASTIL, EL ANGULO DE ELEVACION DE LA PUNTA DEL MASTIL ES ";D;"
1 ;"DE BASE BC Y AB=AC. HALLA LA";
1 ;"DA LA RESPUESTA EN GRADOS."
1 ;"CUANDO EL ANGULO ABC=";E;" RADIA-NES Y BC=";C;"."
1 ;"CUANDO EL ANGULO ABC=";D;"
1 ;"Buscar un elemento por nombre, simbolo,peso atomico,grupo, forma o numero"
1 ;"Buscar por grupo"
1 ;"Buscar por forma"
1 ;"Averiguar sobre que elemento?"
1 ;"ANGULO BAC=";D;"
1 ;"ALTURA DEL MASTIL."
1 ;"ABC ES UN TRIANGULO ISOSCELES";
1 ;"ABC ES UN TRIANGULO DE LADO ";
1 ;"AB=";A;", LADO AC=";B;" Y LADO BC=";C;".";
1 ;">";j$;"_";
1 ;">";j$;"_":
1 ;">";j$;"_ ";:
1 ;">";j$;"_ ";
1 ;"6 Nombres y numero atomico"
1 ;"6 Numero"
1 ;"5 Nombres y forma"
1 ;"5 Forma";
1 ;"4 Para ayuda"
1 ;"4 Nombres y grupo"
1 ;"4 Es igual a"
1 ;"4 Grupo";
1 ;"3 Para buscar numero,simbolo,";
1 ;"3 Nombres y peso atomico"
1 ;"3 Contiene ";
1 ;"3 Solido"
1 ;"3 Peso atomico";
1 ;"3 Es igual a"
1 ;"2 si cualquier cond. es cierta"
1 ;"2 Termina con";
1 ;"2 Nombres y simbolos"
1 ;"2 Listar todos los elem."
1 ;"2 Simbolo";
1 ;"2 Liquido";
1 ;"2 Es mayor que";
1 ;"1 Solo los nombres de elem."
1 ;"1 Si ambas cond. son ciertas ";
1 ;"1 Para hallar detalles";
1 ;"1 Empieza con";
1 ;"1 Nombre";
1 ;"1 Gas";
1 ;"1 Es menor que";
1 ;" Pulsa ENTER para confirmar o 1 a 6 para escoger de nuevo"
1 ;" Pulsa ENTER para confirmar o 1 a 4 para escoger de nuevo"
1 ;" PROGRAMAS EDUCATIVOS"
1 ;" OLVIDES DE ELLAS EN EL EXAMEN."
1 ;" NO USES UNIDADES, PERO NO TE";
1 ;" LAS RESPUESTAS DEBEN SER "
1 ;" LAS RESPUESTAS CON UN ERROR "
1 ;" EL VALOR DE
1 ;" DEBE SER TOMADO COMO 22/7."
1 ;" CARGANDO ELEMENTOS ";
1 ;" SE TE DARA UNA PUNTUACION. "
1 ;" Esta bien? (pulsa S o N)"
1 ;" ESPERE ":
1 ;" DESPUES DE DAR 10 RESPUESTAS "
1 ;" CORRECTO ";
1 ;" ESTA ES TU EVALUACION"
1 ;" TEN EN CUENTA QUE EN ESTE ":
1 ;" PROGRAMA "
1 ;" TRIGONOMETRIA "
1 ;" TRIGONOMETRIA "
1 ;" Pulsa ENTER para volver al menu "
1 ;" Buscando ";
1 ;" Pausa ENTER - continuar S - parar"
1 ;" pausa ENTER - continuar S - parar"
1 .HALLA EL AN- ";
1 .HALLA AC CUAN-";
1 . SI PQ=";A;" METROS, HALLA LA";
1 . SI EL LADO XY=";A;" Y EL LADO YZ=";B;", HALLA EL LADO XZ."
1 ,,,," AHORA SE TE DARAN ALGUNOS"
1 ,,"DE O.1 SON CONSIDERADAS CORREC- TAS."
1 ,,"DADAS SOLAMENTE CON UN DECIMAL."
1 ,," TODAVIA DEBES TRABAJAR MAS "
1 ,," ESTE RESULTADO ES MUY MUY POBRE "
1 ,," PROBLEMAS DE MATEMATICAS PARA RESOLVER."
1 ,," HAS ESTADO CERCA DE APROBAR "
1 ,," VENGA,LO PUEDES HACER MEJOR"
1 ,," BIEN HECHO HAS APROBADO"
1 )+("Termina con "
1 )+("Solido"
1 )+("Simbolo "
1 )+("Peso atomico "
1 )+("Numero "
1 )+("Mayor que "
1 )+("Liquido"
1 )+("Grupo "
1 )+("Forma "
1 )+("Contiene "
1 )+"Simbolo "+
1 )+"Peso atomico "+
1 )+"Numero atomico "+
1 )+"Lista:nombre del elem.":
1 )+"Grupo "+
1 )+"Forma "+
1 )+"Elemento "+
1 )+"Averiguar sobre: "+h$:
1 )))+((" "+
1 (J-ANS)<.099
1 (-(C*C-A*A-B*B)/2
1 ((ANS+0.001
1 ''"Si quieres saber todo sobre un"'"elemento debes usar la opcion 1"'"del menu principal.El programa"'"te pide el nombre del elemento y"'"despues imprime todos los datos."
1 '"Por ejemplo puedes preguntar a"'"la maquina que busque todos los"'"elementos del grupo 1 o todos"'"los elementos con peso atomico"'"mayor de 50."
1 '"El programa te ayuda a averiguarcosas sobre los elementos usando las opciones 1 a 3 en el menu."
1 '"Cada eleccion se te explica"'"a medida que trabajas."
1 "Yodo","I","126.904","7","Solido"
1 "Xenon","Xe","131.3","0","Gas"
1 "Wolframio","W","183.85","6","Solido"
1 "Vanadio","V","50.942","5","Solido"
1 "Uranio","U","238.03","A","Solido"
1 "Tulio","Tm","168.934","L","Solido"
1 "Torio","Th","232.038","A","Solido"
1 "Titanio","Ti","47.9","4","Solido"
1 "Terbio","Tb","158.924","L","Solido"
1 "Teluro","Te","127.6","6","Solido"
1 "Tecnecio","Tc","99","7","Solido"
1 "Tantalo","Ta","180.948","5","Solido"
1 "Talio","Tl","204.37","3","Solido"
1 "Sodio","Na","22.9898","1","Solido"
1 "Silicio","Si","28.086","4","Solido"
1 "Selenio","Se","78.96","6","Solido"
1 "Samario","Sm","150.35","L","Solido"
1 "Rutenio","Ru","101.07","8","Solido"
1 "Rubidio","Rb","85.47","1","Solido"
1 "Rodio","Rh","102.905","8","Solido"
1 "Renio","Re","186.2","7","Solido"
1 "Radon","Rn","222","0","Gas"
1 "Radio","Ra","226","2","Solido"
1 "Protactinio","Pa","231","A","Solido"
1 "Prometio","Pm","147","L","Solido"
1 "Praseodimio","Pr","140.907","L","Solido"
1 "Potasio","K","39.102","1","Solido"
1 "Polonio","Po","210","6","Solido"
1 "Plutonio","Pu","242","A","Solido"
1 "Plomo","Pb","207.19","4","Solido"
1 "Platino","Pt","195.09","8","Solido"
1 "Plata","Ag","107.87","1","Solido"
1 "Paladio","Pd","106.4","8","Solido"
1 "Oxigeno","O","15.994","6","Gas"
1 "Osmio","Os","190.2","8","Solido"
1 "Oro","Au","196.967","1","Solido"
1 "Nobelio","No","254","A","Solido"
1 "Nitrogeno","N","14.0067","5","Gas"
1 "Niquel","Ni","58.71","8","Solido"
1 "Niobio","Nb","92.906","5","Solido"
1 "Neptunio","Np","237","A","Solido"
1 "Neon","Ne","20.183","0","Gas"
1 "Neodimio","Nd","144.24","L","Solido"
1 "Molibdeno","Mo","95.94","6","Solido"
1 "Mercurio","Hg","200.59","2","Liquido"
1 "Mendelevio","Md","256","A","Solido"
1 "Manganeso","Mn","54.938","7","Solido"
1 "Magnesio","Mg","24.312","2","Solido"
1 "Lutecio","Lu","174.97","L","Solido"
1 "Litio","Li","6.939","1","Solido"
1 "Lawrencio","Lw","257","A","Solido"
1 "Lantano","La","138.91","3","Solido"
1 "Kripton","Kr","83.8","0","Gas"
1 "Itrio","Y","88.905","3","Solido"
1 "Iterbio","Yb","173.04","L","Solido"
1 "Iridio","Ir","192.2","8","Solido"
1 "Indio","In","114.82","3","Solido"
1 "Holmio","Ho","164.93","L","Solido"
1 "Hierro","Fe","55.847","8","Solido"
1 "Hidrogeno","H","1.00797","1","Gas"
1 "Helio","He","4.0026","0","Gas"
1 "Hafnio","Hf","178.49","4","Solido"
1 "Germanio","Ge","72.59","4","Solido"
1 "Galio","Ga","69.72","3","Solido"
1 "Gadolinio","Gd","157.25","L","Solido"
1 "Francio","Fr","223","1","Solido"
1 "Fosforo","P","30.9738","5","Solido"
1 "Fluor","F","18.9984","7","Gas"
1 "Fermio","Fm","253","A","Solido"
1 "Europio","Eu","151.96","L","Solido"
1 "Estroncio","Sr","87.62","2","Solido"
1 "Estano","Sn","118.69","4","Solido"
1 "Escandio","Sc","44.956","3","Solido"
1 "Erbio","Er","167.26","L","Solido"
1 "Einsteinio","Es","254","A","Solido"
1 "Disprosio","Dy","162.6","L","Solido"
1 "Curio","Cm","247","A","Solido"
1 "Cromo","Cr","51.996","6","Solido"
1 "Cobre","Cu","63.54","1","Solido"
1 "Cobalto","Co","58.9332","8","Solido"
1 "Cloro","Cl","35.453","7","Gas"
1 "Circonio","Zr","91.22","4","Solido"
1 "Cinc","Zn","65.37","2","Solido"
1 "Cesio","Cs","132.905","1","Solido"
1 "Cerio","Ce","140.12","L","Solido"
1 "Carbono","C","12.0112","4","Solido"
1 "Californio","Cf","251","A","Solido"
1 "Calcio","Ca","40.08","2","Solido"
1 "Cadmio","Cd","112.4","2","Solido"
1 "Bromo","Br","79.909","7","Liquido"
1 "Boro","B","10.811","3","Solido"
1 "Bismuto","Bi","208.98","5","Solido"
1 "Berkelio","Bk","247","A","Solido"
1 "Berilio","Be","9.0122","2","Solido"
1 "Bario","Ba","137.34","2","Solido"
1 "Azufre","S","32.064","6","Solido"
1 "Astato","At","210","7","Solido"
1 "Arsenico","As","74.9216","5","Solido"
1 "Argon","Ar","39.948","0","Gas"
1 "Antimonio","Sb","121.75","5","Solido"
1 "Americio","Am","243","A","Solido"
1 "Aluminio","Al","26.9815","3","Solido"
1 "Actinio","Ac","227","3","Solido"
1 ","","","","",""
1 the data ......
1 para Stop
1 data pointer
1 all set up
1 Y DESDE UN PUNTO Q AL SUR ES ";C;"
1 Y BC=";C;
1 MONSER 1985"
1 MONSER 1985 <<
1 MONSER 1.985 * * * **************************
1 Inicio nuevo
1 = sonoro ":
1 = sin sonido "
1 (LETRA GRIEGA)"
1 LOADER ROUTINE
1 Elige un numero y pulsalo
1 U otra tecla para seguir.
1 Pulsa
1 ************************** * * * Elementos * * * *